Einfache memo Ausgabe

[Ringer]

Hallo Zusammen,

ich noch ein ziemlicher Anfänger und verstehe deshalb auch bestimmt nicht wo hier der Fehler ist!

Delphi-Quellcode:

procedure TTest_1.Button4Click(Sender: TObject);
var sInput: String;
    s:TStrings;
    sl:TStringList;
    char:pchar;
  begin
    sInput := 'C:\Test\Delphi_Projekte\Test_1\test.txt';
    s:=TStrings.create;
    sl:=TStringlist.create;
    s.LoadFromFile(sInput);
    char:=pchar(s);
    ExtractStrings([','],[],char,sl);
    memo2.Lines.Add(sl[1]);
    s.Free;
  end;

mfg Ringer

[Akut-Programming]

Hi! Also ich bin auch relativ neu hier, und hoffe ma, das ich mich jetzt nicht zuweit aus dem Fenster lehne.

Versuch ma sInput als TextFile zudeklarieren...

Delphi-Quellcode:

procedure TTest_1.Button4Click(Sender: TObject); 
var sInput: TextFile; 
...

Wenn du sagst das

Code:

s.LoadFromFile(sInput)

dann muss auch die Variable in der sich deine Textdatei befindet als TextFile deklariert sein!

Ich hoffe es hilft dir weiter

[Ringer]

Danke, aber funzt leider nicht! Ganz im Gegenteil jetzt läuft es nicht mehr :?: . Ich denke auch nicht das da das Problem aber wenn ich wüßte wo es wäre...

[Dannyboy]

Was funktioniert nicht?
Text wird nicht geladen oder Fehlermeldung? Welche?

[Ringer]

Also es passiert einfach gar nichts!

Vielleicht auch noch wichtig die Textdatei sieht so aus:

wert1,wert2,wert3,...

mfg

Ringer

[Luckie]

Kann mir mal bitte jemand auf deutsch erklären was ExtractStrings macht?

Zitat:

Zitat von Delphi Hilfe

Use ExtractStrings to fill a string list with the substrings of the null-terminated string specified by Content.

@Ringer: Was willst du denn erreichen?

[Ringer]

Hier eine Erklärung:

http://delphi.about.com/library/rtl/...actStrings.htm

mfg

Ringer

[Sourcemaker]

Im Debugger überprüft ob in der Stringlist vor und nach Extractstrings etwas enthalten ist ?
Oder entsprechend des Beispiels von Extract... statt s Memo.Lines als Parameter für Extractstrings angeben.

[Matze]

Bei mir kommt da eine obergeniale Fehlermeldung, mit der ich wirklich viel anfangen kann:

Zitat:

Project1 - Abstrakter Fehler.

Kann Borland seine Fehlermeldungen nicht so machen, damit man weiß, was los ist.

Das habe ich ja noch nie gehört: ABSTRAKTER FEHLER. :mrgreen:

[Ringer]

Also den abstrakten Fehler hatte ich noch nicht :D .

Sonst habe ich die Ausgabe auch wie im Beispiel geändert! Aber ohne Erfolg!

Ringer