ok habe bis jetzt vollgendes
Delphi-Quellcode:
function Split(InStr, SplitAt: String): TStringArray;
var
I, L: Integer;
begin
SetLength(Result, 0);
if InStr = '' then
Exit;
I := Pos(SplitAt, InStr);
L := Length(SplitAt);
while I > 0 do
begin
SetLength(Result, Succ(Length(Result)));
Result[High(Result)] := Copy(InStr, 1, Pred(I));
Delete(InStr, 1, Pred(I + L));
I := Pos(SplitAt, InStr);
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
var I: Integer;
Strings: TStringArray;
ein_datei:file of char;
begin
assignfile (ein_Datei, 'c:\sms\sat.txt');
reset (ein_datei);
begin
{ zeile einlesen }
Strings := Split(zeile, Chr(9));
if Length(Strings) > 0 then
for I := Low(Strings) to High(Strings) do
ShowMessage(Strings[I]);
end;
Meine Frage nun
Wo liegen die Zeilen jetzt??
Ich vermute mal im strings:TStringsarray
Wie bekomm ich die Zeilen da wieder raus??
Wie kann ich diesen StringArray auslesen??