Hallo,
ich weiß nicht mehr weiter. und hoffe das ihr einen fehler findent:
Delphi-Quellcode:
procedure TNote1.WriteText(Text:TStrings;id:String);
var
str,str1:String;
i,count:integer;
c:Char;
r:Boolean;
oldpos:Integer;
test:Boolean;
TextStream:TMemoryStream;
Writer:TWriter;
Lesen:TReader;
begin
if FindItem('[TextItem='+id+']') = False then begin
str:=#13#10#13#10+'[TextItem='+id+']'+#13;
FileStream.WriteBuffer(str[1],Length(str));
Writer:=TWriter.Create(FileStream,10);
Writer.WriteString(text.Text);
Writer.FlushBuffer;
end
else begin
r:=True;
FileStream.Position:=gefundenpos;
Lesen:=TReader.Create(FileStream,10);
lesen.ReadString;
count:=FileStream.Position;
FileStream.Position:=gefundenpos;
for i:=0 to count-gefundenpos do begin
str:=' ';
FileStream.WriteBuffer(str[1],Length(str));
end;
FileStream.Position:=gefundenpos;
Writer:=TWriter.Create(FileStream,10);
Writer.WriteString(text.Text);
Writer.FlushBuffer;
end;
end; // WriteText
Das hinzufügen funktioniert wie ich es mir vorstelle nur das ändern von texten funktioniert nicht
das ergbnis soll so aussehen:
Zitat:
[ItemList]
Dies=49575053554956525749=08.10.2006=16:13:11
ist=50494950495550574956=08.10.2006=16:13:13
ein=49504955525649545055=08.10.2006=16:13:15
test=49515055495049505054=08.10.2006=16:13:18
von=51514954495149494949=08.10.2006=16:13:21
heute=49534949504950544955=08.10.2006=16:13:234
[TextItem=49575053554956525749]
Test1
Test2
Test3
[TextItem=50494950495550574956]
Hallo1
Hallo2
Hallo3
aber leider sieht es nach DEM bearbeiten so aus:
Zitat:
[ItemList]
Dies=49575053554956525749=08.10.2006=16:13:11
ist=50494950495550574956=08.10.2006=16:13:13
ein=49504955525649545055=08.10.2006=16:13:15
test=49515055495049505054=08.10.2006=16:13:18
von=51514954495149494949=08.10.2006=16:13:21
heute=49534949504950544955=08.10.2006=16:13:234
[TextItem=49575053554956525749]
Test1
Test2
Test3
Test4 tem=50494950495550574956]
Hallo1
Hallo2
Hallo3
ich habe dem ersten eintrag(49575053554956525749) einen eintrag hinzugefügt.
die datei ist zum lesen/schreiben geöffnet.
vielen dank im vorraus !