Probleme mit StringList und for schleifen

[malo]

2 Bitten:

1. Bitte verwende anstelle der [ code ] -Tags die [ delphi ]-Tags

2. Nenne uns doch auch mal die Fehler

//edit: Lies dir mal meine Posts genau durch. Da steht, wo dein Fehler auftritt.

[Sharky]

Ähmmm....

das darf überhaupt nicht Compiliert werden!!!

sl3.create gibt es doch nicht.
Schaue Dir mal diesen Code von mir an:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  slFileNames := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  slFileNames.Free;
end;

procedure TForm1.CounteLines(const aFileName: string; aOutPut: TStrings);
var
  ndx:      integer;
  slCount:  TStringList;
begin
  slCount := TStringList.Create;
  try
    slFileNames.LoadFromFile(aFileName);
    for ndx := 0 to Pred(slFileNames.Count) do
    begin
      slCount.LoadFromFile(slFileNames.Strings[ndx]);
      aOutPut.Add(IntToStr(slCount.Count));
    end;
  finally
    slCount.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName : string;
begin
  FileName := 'Name der Datei mit der Liste';
  CounteLines (FileName,ListBox1.Items);
end;

P.S.: Verwende doch bitte die Delphi-Tags und nicht die Code-Tags.

[Luckie]

Zitat von agm65:

das macht auch fehler, exception zugriffs verletzung

W E L C H E denn?!?!?!!! Das kann doch nicht so schwer sein mal zu posten, was du mit dem Code bezweckst, was nicht funktioniert, eventuell auftauchende Fehlermeldungen und wie du es gerne hättest. Langsam habe ich diese ewige Nachfragerei satt. Es muss doch möglich sein mal alle relevanetn Informationen gleich im ersten Posting zu liefern.

[malo]

Zitat von Luckie:

Zitat von agm65:

das macht auch fehler, exception zugriffs verletzung

W E L C H E denn?!?!?!!! Das kann doch nicht so schwer sein mal zu posten, was du mit dem Code bezweckst, was nicht funktioniert, eventuell auftauchende Fehlermeldungen und wie du es gerne hättest. Langsam habe ich diese ewige Nachfragerei satt. Es muss doch möglich sein mal alle relevanetn Informationen gleich im ersten Posting zu liefern.

Naja, das Problem dabei sehe ich eher darin, dass manche Posts nicht oder nur teilweise gelesen werden. Ich habe nämlich grade schon geschrieben, wo der Fehler liegt.

Freundlicherweise verweise ich nochmal auf den Post: http://www.delphipraxis.net/internal...=390097#390097

[agm65]

luckie, du das hast recht, es tut mir leid !
ich werde mir mühe geben mehr infos in meine posts zu packen !

Delphi-Quellcode:

  sl3: TStringList;
  i: integer;
begin
  sl3.Create;
  try

    for i :=  0  to sl.count-1 do
     begin
     memo1.Lines.Add(sl.Strings[i]);     
     sl3.LoadFromFile(sl.strings[i]);    
     sl3.clear;                                                    
     end;

ich bekomme eine exception der klasse EAccessViolent, und es wird nicht compiliert !

[malo]

Zitat von agm65:

aber komisch ist, dass er die strings in die memo packt, das geht !

Die beiden Codezeilen führen ja auch verschiedene Befehle aus!!!

Das eine ist LoadFromFile. Da wird ein Dateipfad angegeben und daraus werden dann die Strings gelesen. Das mit dem Memo speichert doch nur die StringListen-Einträge in dem Memo. Da könnte man aber auch folgendes machen:

Memo1.Text := sl.Text;

[100nF]

probiers mal so:

Delphi-Quellcode:

tform.button1click; 
var 
i:integer; 
sl3: tstringlist;
begin 
sl3 := tstringlist.create;
sl3.strings := sl.strings;
try 
  for i :=  0  to sl3.count -1 do 
     begin 
     sl.clear;
     sl.LoadFromFile(sl3.Strings[i])); 
     edit1.text := inttostr(sl.count); 
     end; 
end;

[agm65]

man ich habs !! DANKE Sharky !
noch ne kurze frage...wie konvertiere ich tstrings in strings ? oder integer in tstring ?

[malo]

Zitat von agm65:

man ich habs !! DANKE Sharky !
noch ne kurze frage...wie konvertiere ich tstrings in strings ? oder integer in tstring ?

TString in String: Wie soll das gehen?

Du kannst die Eigenschaft Text von TString verwenden. s := StringList.Text; Das gibt dir den gesamten Inhalt der StringListe als String wieder.

Integer in TString versteh ich nicht

Wofür soll das gut sein?

[100nF]

Zitat:

wie konvertiere ich tstrings in strings ?

string := strings.text;

Zitat:

oder integer in tstring ?

string := inttostr(integer);