, die, in een tekstverwerker, je kan de in punt en dan is ze in een rij, aan andere programma 's die ramen gewikkeld.Hier is hoe het is geschreven in een gemeenschappelijke tekst redacteur.,,,,, "stop" van een tekst...,,,,, acorioso gen Fowler, @ ccnet. COM,,,,,,, noot: 1, als je me de code van de verschillende artikelen van de tekst als redacteur van MDI De tekst is de opstelling van een correctie van saveas1click gevallen is, in je had.Oké, steek, een dossier openen, (etikettering, weg);,,, vervangen zou moeten worden door de,,, open bestand, steek (0, weg van de naam),,, dit is erg belangrijk, omdat het bewaren van documenten in de nieuwe hier.Je eerste test, zal ongetwijfeld in een nieuw document.Ik denk dat de oorspronkelijke saveas1click laat redacteur, geen probleem.Ik heb m 'n code is veel ingewikkelder ewriter.,,, 2, van deze code test is borland Delphi met textedit demonstratie.Als je 5 of 5.01 opgesteld in Delphi, je zal moeten worden gewijzigd forms.pas, beveel ik je in mijn eerdere artikelen, programmering /(preventief) in MDI bewerken.,,,,, je kunt negeren 5,0 keer gewaarschuwd, omdat je het niet moeten doen, een raam.Schrijf een raam is alles wat je nodig hebt van de functie van de test.Ik ewriter TextWriter kenmerk van dit artikel op pagina 's, zou je nu aan het lezen.Je kan het gebruik van textedit testen.,,, in feite, gewikkeld in het raam van de uitvoer voor enkele Lid textedit rand.Je moet de uitbreiding van de terminal textedit ver genoeg boven je dus vergeten in het raam in de gericht op het voorkomen van zal creëren.In de ewriter, ik gebruik het woord "pijlers" dus geen toegang voor elke regel.Hoewel in een tekst... Of TextWriter, dacht dat je kolom, verpakking of met enter.De keuze van de vorm van de tekst is.Dit is geen stroom.Echter, schrijver, dan moet de tekst, in het raam, laat ze een samenvatting of, zoals ik deed dat de vooruitzichten om een pakket.OE - pakket, een sms stuurt.,,, redacteur is een gemeenschappelijke tekst redacteur.Ik zei, en dan gewoon, omdat het drukken van 8 tekens, maar dat het in buitengewone, rtf redacteur.Dit is dan bij de notities schrijven.Maar weet je, het is in een rijke Edit controle.Dit laat een goede magie.Je wil zien?Etikettering van de tekst (zinnen, titel, enz.) en de kleur van de blok.Dan kan je snel naar hen.Of, als je werkt in de documenten, de kleur van het etiket: //europa.eu.int /comm /laden (als een optie).Je kan al deze dingen doen, op de achtergrond, in de rijke Edit en pigment is niet van invloed op alle je tekst.Aan de andere kant, als je een afdruk van je: //europa.eu.int /comm /en kleur etiketten.De uitvoer naar een ander dossier, als Rich Text Format en drukken en bestuur.,,, in de volgende code, ik met een dubbel geheugen - die tekst een slaapbank per tenzij er twee blanco punten houden, dus gescheiden van de vulling.Editor.plaintext valse weer echt de laatste.Dat is de magische doos is hoe het werkt.- M 'n lezing van de tekst en de meest veel stroom kon worden vereenvoudigde, maar dit werkt,,,,,,, Caption: menu item:, die in 1 - n, met NLinestoOne1,,,,,,,, - ja, de procedure TEditForm.NLinestoOne1Click (Sender: TObject);,,.,,,, var, skip. Stream2: stroom 1, TMemoryStream;,, P.: PChar;,, C: IsPar: Char;,,.,,,.,,,, SetStreams; beginnen, als Editor.Text < > "dan, Editor.PlainText: = vals, anders wordt,,,,,,, de stroom 1: Stream2 = nul;: - = nul;,,, ik TMemoryStream.Create stroom 1: = = = = = = = TMemoryStream.Create Stream2:;,,,,, Stream1.SetSize (longInt (lengte (Editor.Text))); Editor.Lines.SaveToStream (,,,, Stream2.SetSize stroom 1); (2 Stream1.Size * * * * * * *); P = Stream1.Memory:,,,,, q = Stream2.:Geheugen,,, behalve als stream1 < > - en, stream1. Vrijheid;,, als stream2 < > - en, stream2. Vrijheid,,,,,,,, aan het einde van het begin.;,, als messagedlg (misschien wil je stuk apart "+" lijn, door de regels die op één lijn.Je kan "+", "Ik hoop dat leden niet onderbreken, zodat ze kan" + "," de randen van het raam.Dit zal het doen. "# 13 13 + #" waarschuwing:,, de behandeling van de dossiers.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 <> nKim en stream1. Vrijheid;,, als stream2 < > - en, stream2. Vrijheid, editor.plaintext:= waar;,,,, de redacteur, gewijzigd: = waar;,,,,,,, aan het einde van het;; gespreid bibliografie, begon ik te improviseren deze artikelen te doen wat Ik doe. In de ewriter in Delphi, textedit (demonstratie van bouw ik ewriter).,, de accumulatie van deze in de tekst een heel natuurlijk.Maar, misschien moet je heen en weer om te voorzien in de nieuwe, missen, of, verandert de steun de routine.De meeste plaatsen heeft de zwarte doos.Dit is de kaart, de lopende "winkel" te praten...,, de programmering /(preventief) in MDI bewerken,,,http://www.howtodothings.com/showarticle.asp?Artikel = 143,,,,,,,,,,,, tegels MDI bewerkenhttp://www.howtodothings.com/showarticle.asp?Artikel = 147,,,,,,, - aantal in MDI redacteur,,,http://www.howtodothings.com/showarticle.asp?Artikel = 154,,,,,,,, "stop" van een tekst...,,,http://www.howtodothings.com/showarticle.asp?De artikelen = 178,,,,,,