, i et tekstbehandlingssystem, kan du arbejde på punkt og hæld dem i andre programmer som fælles linjer, bundet af den modtagende vinduer.her er hvordan til at skrive det ind i en almindelig tekst redaktør.,,,, punkt ", at" fra en tekst, redaktør,,,,, som gene fowler, acorioso @ ccnet. kom, noter:,,,,.,, hvis du sætter kode fra min flere artikler om mdi tekst redaktører i en kopi af textedit, der er en rettelse i saveas1click rutine, du har der.den linje, openfiles. indsæt (mærke, pathname);,,, bør erstattes af,,, openfiles. indsæt (0, pathname);,,, dette spørgsmål her, for at redde en ny fil er berørt.din første test vil uden tvivl være i en ny sag.jeg går ud fra, textedit oprindelige saveas1click vil ikke prsent ethvert problem.jeg har i min kode fra meget mere kompleks ewriter.,,,,, 2: afprøvning af denne kodeks er borland er textedit demo, der kommer med delphi.hvis de indsamler i delphi 5 eller 5.01, får du brug for den ændrede forms.pas som jeg direkte til i mit tidligere artikel programmeringssystem /næste (tidligere) i mdi redaktører.,,,,, kan man ignorere advarslen om 5, 0 x, for det er ikke nødvendigt at gøre et barn vindue håndtering.en skriftlig vindue er alt, du behøver for at teste træk.jeg brugte træk i min textwriter, ewriter, at hælde denne artikel i den side, du læser lige nu.du kan bruge textedit test objekt.,,,, textedit var linjer på vinduet kant og eksport afsnit som fælles linjer.du bliver nødt til at udvide textedit langt nok ud over ender du skaber din enter, for at forhindre at glemme at komme ind, så vinduet var.i ewriter, jeg bruger "kolonne pakke", så gå ikke anvendes for hver linje.idéen med en tekst, redaktør eller textwriter er dog, at du har kolonne pakke eller anvendelse på enter.udformningen af teksten er forfatteren er valg.det er ikke en flod.men forfatteren, så ønsker måske at hælde tekst i nogle vinduer, og lad dem få eller, som jeg har med fremtidsudsigter express, lad programmet pakke.oe må, når det, sender den tekst,.,,, textedit er en almindelig tekst, redaktør.jeg siger normalt snarere end almindeligt, fordi det fingeraftryk 8 - bit tegn, men det er almindelige i, at det ikke er en rte i irland og rtp i portugal redaktør.det er tættere på, end at wordpad notesbog.men som du ved, er det i en richedit kontrol.det giver en god del af magi.have visuel bookmarks?mark tekstsegmenter (sætninger, afsnit osv.) og farve dem røde.så kan du rulle blandt dem hurtigt.eller hvis du arbejder på http: //filer, farve dit hundetegn på lastning (som en mulighed.du kan gøre alt dette, før i richedit og farvninger påvirker ikke din tekst på alle.på den anden side, hvis du vil trykke din html tekst med farvede mærker.en anden sag, som rte i irland og rtp i portugal, og tryk fra wordpad.,,, i kodeksen under, bruger jeg et par hukommelse strømme til at løbe teksten igennem og trække hver , bortset fra tilfælde, hvor der er to, så den tomme linjer mellem afsnit ikke at adskille de fyldte linjer.editor.plaintext er fastsat til falske i begyndelsen og tilbage til sidst.dette er, hvordan den magiske kasse virker.No doubt my reading and modifying the text stream could be simplified, but this works.,,,,Menu item:,,,, Caption: Pull n lines into 1,,, Name: NLinestoOne1,,,code:,,,, procedure TEditForm.NLinestoOne1Click(Sender: TObject);,, label,, Skip;,, var,, Stream1, Stream2: TMemoryStream;,, p, q: PChar;,, c: Char;,, IsPar: integer;,,, procedure SetStreams;,, begin,, if Editor.Text <> '' then,, Editor.PlainText := False,, else,, Exit;,, Stream1 := nil;,, Stream2 := nil;,, try,, Stream1 := TMemoryStream.Create;,, Stream2 := TMemoryStream.Create;,, Stream1.SetSize(longInt(Length(Editor.Text)));,, Editor.Lines.SaveToStream(Stream1);,, Stream2.SetSize(2 * Stream1.Size);,, p := Stream1.Memory;,, q := Stream2.hukommelse, undtagen, hvis stream1 < > 0,, stream1. gratis, hvis stream2 < > 0,, stream2. fri,,,,,,,,,, begynder, hvis messagedlg (»du vil linjerne i blokke væk "+" af tomme linjer, trak op i samme retning.du kan '+, vil punkt uden linjeskift, så de kan pakke på +, "et vindue kant.det vil gøre det. +, "advarsel. denne proces hele sagen.If you wish to apply ' +,, 'this to only a block from the file, move it to another window ' +,, 'and process it there before moving it back.',,, mtInformation, [mbOK, mbCancel],0)= mrCancel then Exit;,, If Editor.Text = '' then Exit;,, IsPar := 0;, , , try,, SetStreams;,, While not (p^ = #0) do,, begin,, c := p^;,, inc(p);,, if (IsPar = 4) and (c = ' ') then,, IsPar := 5,, else,, if (IsPar = 3) and (c = 'r') then,, IsPar := 4,, else,, if (IsPar = 2) and (c = 'a') then,, IsPar := 3,, else,, if (IsPar = 1) and (c = 'p') then,, IsPar := 2,, else,, if c = '\\' then,, IsPar := 1,, else IsPar := 0;,, if (IsPar = 5) then,, begin,, if not (p^ = #13) then,, q := q - 4 //removes \\par, leaves following space,, else,, begin,, dec(q^);,, q^ := c;,, inc(q);,, q^ := '\\';,, inc(q);,, q^ := 'p';,, inc(q);,, q^ := 'a';,, inc(q);,, q^ := 'r';,, inc(q);,, p := p + 7; //skip #13#10\\par(sp),, end;,, end;,, q^ := c;,, inc(q);,, if p^ = #0 then,, q^ := #0;,, end;,, Editor.Text := '';,, Editor.Lines.LoadFromStream(Stream2);,, finally,, if Stream1 <> nså så, stream1. gratis, hvis stream2 < > 0,, stream2. gratis;,, editor.plaintext: = sandt;,, redaktør. modificerede: = sandt,,,,,,,,,,,,, sammenflettede bibliografi, begyndte jeg improviserer disse artikler om det nogle af de ting, jeg gør, i ewriter i delphi - demo textedit (som jeg byggede ewriter). det er naturligt, at samle alle disse i en kopi af textedit.og du bliver nødt til at gå frem og tilbage til at fylde nye, ikke - eller ændrede støtte rutiner.pakket sedler synes de fleste steder.tal, er det igangværende "forretning" samtale...,, programmeringssystem /næste (tidligere) i mdi redaktører,,,http://www.howtodothings.com/showarticle.asp?artikel = 143,,,,,,,,,, selektiv flisearbejde i mdi redaktører,,,http://www.howtodothings.com/showarticle.asp?artikel = 147,,,,,,,, - vindue numre i mdi redaktører,,,http://www.howtodothings.com/showarticle.asp?artikel = 154,,,,,,, punkt ", at" fra en tekst, redaktør,,,http://www.howtodothings.com/showarticle.asp?artikel = 178,,,,,,,