Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#32

AW: String in Array einlesen

  Alt 14. Jun 2013, 16:28
Dann kommen wir doch mal hierauf zurück
Hallo,

ich hab hier ne kleine rechnung, in der ich ungefähr 100 Werte in jeweils 3 Spalten erzeugt habe und die dann als .txt ausgebe. So z.B.

mystring := Spalte1 + #9 + Spalte2 + #9 + Spalte3 + #13#10;
Bevor Du Deine Rechnungsergebnisse schreibst, liegen sie ja einzeln vor und es sollte kein Problem sein sie col1,col2... zuzuweisen.
Wenn es denn unbedingt der Text sein muß dann vllt so

Delphi-Quellcode:
function Getcol(lfnr:integer;mytext:string;delim:char);
var
  delimll:tstringlist;
begin
  delimll:=Tstringlist.create;
  delimll.delimter:=delim;
  delimll.Delimitedtext:=mytext;
  result:=delimll[lfnr];
  delimll.free;
end;
Ist nur so runter getippt. Beachte das lfnr von 0..irgendwas geht!

Gruß
K-H

end;
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat