Einfache memo Ausgabe

[Alexander]

Hallo,
wenn du einfach nur eine Datei ins Memo laden willst, so schau die mal Lines.LoafFromFile an ;-)

[Ringer]

Danke aber ich will das halt nicht nur einfach machen :D

[Wormid]

So funktioniert die Routine bei mir:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var SL, Tokens: TStringList;
    i: Integer;
begin
  SL := TStringList.Create;
  Tokens := TStringList.Create;

  SL.LoadFromFile('C:\test.txt');
  for i := 0 to (ExtractStrings([','], [], PChar(SL.Text), Tokens) - 1) do
    Memo1.Lines.Add(Tokens[i]);

  SL.Free;
  Tokens.Free;
end;

Das ganze geht jetzt nur davon aus, das das Textfile nur eine Zeile mit Werten enthält.

Gruß

Wormid

[Ringer]

Danke aber aus irgendeinen Grund will es bei mir nicht gehen...

Habe einen code zu 100% übernommen aber es will nicht :(

Falls du noch eine Idee hast (vielleicht auch wie es mit mehreren zeilen gehen kann) einfach nochmal schicken!

Vielen DANK

Gruß Ringer

[Wormid]

Wie sieht denn dein Textfile aus?

Ich hatte mir zum Test eines erstellt mit diesem Inhalt:

wert1,wert2,wert3,wert4

Mehr stand da nicht drin.

[Ringer]

Meines ging bis zu wert5 also

wert1,wert2,wert3,wert4,wert5

Vielleicht sind ja 5 Werte zu viel für mein notebook :wink:

Ringer

[Matze]

Bei mir geht die Lösung von Wormid, nur so nebenbei. ;)

Nachtag: Ich hab's mit 17 Werten gemacht.

[Wormid]

Um mehrere Zeilen nacheinander abzuarbeiten muss das so aussehen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var SL, Tokens: TStringList;
    i, n: Integer;
begin
  SL := TStringList.Create;
  Tokens := TStringList.Create;

  SL.LoadFromFile('C:\test.txt');
  for n := 0 to SL.Count - 1 do
  begin
    Tokens.Clear;  // Wenn man die Liste nicht leer macht, hängt
                   // EtractStrings die neuen Werte an die Liste hinten
                   // an. Aber das kann ja auch gewollt sein. ;-)
    for i := 0 to (ExtractStrings([','], [], PChar(SL[n]), Tokens) - 1) do
      Memo1.Lines.Add('Zeile ' + IntToStr(n + 1) + ': ' + Tokens[i]);
  end;

  SL.Free;
  Tokens.Free;
end;

[Ringer]

Habe jetzt gerade ein neues Projekt erstellt und alleine läuft es!! Also liegt der Fehler irgendwo in meinen activex control... :?: :?:

Also danke! Falls du mir noch schreibst wie ich mehrere Zeile auslese, machst du einen seit Stunden verzweifelten Menschen mehr als glücklich :!:

Vielen DANK!

Gruß

Ringer

[Alexander]

Zitat:

Danke aber ich will das halt nicht nur einfach machen

:shock: na dann :shock: :mrgreen: