Einzelnen Beitrag anzeigen

Bedrock

Registriert seit: 11. Apr 2003
20 Beiträge
 
#21
  Alt 3. Jun 2003, 18:35
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??
  Mit Zitat antworten Zitat